home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Borland / Borland C++ For TASM / USRGUIDE.PAK / HEX.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-21  |  336b  |  17 lines
  1. { Turbo Assembler example. Copyright (c) 1993 By Borland International, Inc. }
  2.  
  3. { Use with hex.asm }
  4.  
  5. program HexTest;
  6. var
  7.   num : Word;
  8.  
  9. function HexStr (var num; byteCount : Byte) : string; far; external;
  10.  
  11. {$L HEX.OBJ}
  12.  
  13. begin
  14.   num := $face;
  15.   Writeln('The Converted Hex String is"',HexStr(num,sizeof(num)),'"');
  16. end.
  17.